home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / M2 / LMATHLIB.DEF < prev    next >
Text File  |  2000-09-26  |  598b  |  27 lines
  1. DEFINITION MODULE LMathLib0;
  2.  
  3. (* (C) Copyright 1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     LONGREALs version of the MathLib0 module as defined in the book
  7.     "Programming in Modula-2" by Niklaus Wirth.
  8. *)
  9.  
  10. PROCEDURE sqrt( x :LONGREAL ) :LONGREAL;
  11.  
  12. PROCEDURE exp( x :LONGREAL ) :LONGREAL;
  13.  
  14. PROCEDURE ln( x :LONGREAL ) :LONGREAL;
  15.  
  16. PROCEDURE sin( x :LONGREAL ) :LONGREAL;
  17.  
  18. PROCEDURE cos( x :LONGREAL ) :LONGREAL;
  19.  
  20. PROCEDURE arctan( x :LONGREAL ) :LONGREAL;
  21.  
  22. PROCEDURE real( x :LONGINT ) :LONGREAL;
  23.  
  24. PROCEDURE entier( x :LONGREAL ) :LONGINT;
  25.  
  26.  
  27. END LMathLib0.